#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TopConn.ch"
#Include "TBICONN.CH"

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
&& Programa AVIEXCDO.PRW     Autor: Wanderson fernandes de Souza
&& Data     08/09/2009       Modulo: Faturamento
&& Objetivo Atualizar a tabela de historico de notas canceladas
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

USER Function AVIEXCDO()   

Public _cMens     := Space(90)
Public _cIncluido := SC5->C5_NOMUS
Public _cAlterado := SC5->C5_ALTUSUA
Public _cConferido:= SF2->F2_CONPED
Public _cPedido   := SC5->C5_NUM

@ 200, 001 TO 350, 550 DIALOG oDlg1 TITLE OemToAnsi("Informe o Motivo do Cancelamento")
@ 003, 010 TO 063, 270
@ 021, 018 SAY "Pedido "  
@ 035, 018 SAY "Motivo"
@ 021, 050 SAY _cPedido + " " + Posicione("SA1",1,XFILIAL("SA1")+SF2->F2_CLIENTE+SF2->F2_LOJA,"A1_NOME")
@ 035, 050 GET _cMens 
@ 047, 050 BUTTON "Ok" SIZE 040, 010 PIXEL ACTION (oDlg1:End())
ACTIVATE DIALOG oDlg1 CENTERED

RecLock("SZC",.T.)
	SZC->ZC_NOTA    := SF2->F2_DOC 
	SZC->ZC_EMISSAO := SF2->F2_EMISSAO
	SZC->ZC_INCLUIR := SF2->F2_INCPED
	SZC->ZC_ALTEDAD := SF2->F2_ALTPED 
	SZC->ZC_CONFERI := SF2->F2_CONPED 
	SZC->ZC_MOTIVO  := _cMens
SZC->(MsUnlock())

U_AVICANCE()

Return Nil